00010 



XLIST 
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00030 

00050 
00060 
00070 



EXTERNAL CLOSEl . DEVLST, ERROR, JBTADR 
EXTERNAL JOB, JOBFF, RELEAl, USRJDA , WA I Tl , CLOS, CLEN 
EXTERNAL PJOBN, CPOPJl , PIOMOO, CPOPJ, CP0PJ2 
EXTERNAL SCNOFF,SCNON 
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PI00000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 



260140 
550046 
515040 
413066 
542046 
335026 
350003 
263140 



000000 
000010 
400000 
000010 
000010 
000010 
000000 
000000 



00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 



00290 
00300 
00310 
00320 
00330 
00340 



DEC 06 00 EX COM 
H, R. MORSE 
CALLING SEQUENCE 
PUSHJ PO 
EXITl 
EXIT2 
CLEARS THE USE BI 
OUTPUT BUFFER ADD 
AND ADVANCES THE 
UPON RETURN, SKIP 
MONITOR INTERFACE 
storage: 
SYMBOLS 
ACCU 



DEVI 

JOB 

INTERN A 

ADVBFE: ADRCHK D 

PUSHJ PDP,ADRCK 

HRRZ TAC,DEV0AD(D 

HRLZI TA 

ANDCAB T 

HRRM TAC 

SKIPGE 9 

AOS (POP 

POPJ POP 



L PT PRE 01 ADVBFE ' 
64-12-26 

P, ADVBFE 

RETURN IF NEXT BUFFER IS EMPTY 
RETURN IF NEXT BUFFER IS FULL 
T (IOUSE:=0) of the BUFFER POINTED TO BY THE 
RESS (DEVOAD) OF THE CURRENT DEVICE DATA BLOCK 
BUFFER ADDRESS TO THE NEXT BUFFER IN THE RING. 
S IF THE NEXT BUFFER IS FULL. 



SET/USED: 

MULATORS: DEVDAT U 

POP S/U 
TAC S/U 

CE DATA block: DEVOAD 

BUFFER header: IOUSE 

DVBFE 

EVOAD(DEVDAT) 



S/U 
S/U 



EVDAT) 

ciouse; IOUSE:=0 

AC,eDEVOAD(DEVDAT) 

,DEV0AD(0EV0AT)? DEVOAD 18-35:=NEXT BUFFER ADDRESS 

DEVOAD(DEVDAT); IS IOUSE=0? 

); EXIT2. BUFFER IS 

,; EXITl. BUFFER IS EMPTY 



FULL 
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000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 



260140 
550046 
515040 
437066 
542046 
331026 
350003 
263140 



000000' 

000007 

400000 

000007 

000007 

000007 

000000 

000000 



00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
PUSHJ 

00560 
00570 
00580 
00590 
00600 
00610 



DEC 06 00 EX 

H. R. MORSE 

CALLING SEQU 

PUS 

EXI 

EXI 

SETS THE USE 

INPUT BUFFER 

AND ADVANCES 

UPON RETURN, 

MONITOR INTE 

STO 

SYM 



COM L PT PRE 01 ADVBF 
64-12-26 

ENCE 

HJ PDP.ADVBFF 

Tl RETUR 

T2 RETUR 

BIT (I0USe:=1) OF THE 
ADDRESS (OEVIAO) OF T 
THE BUFFER ADDRESS TO 
SKIPS IF THE NEXT BUF 

RFACE 

rage: 6 

BOLS set/used: 
ACCUMULATORS: 



N IF NEXT BUFFER IS FULL 
N IF NEXT BUFFER IS EMPTY 

BUFFER POINTED TO BY THE 
HE CURRENT DEVICE DATA BLOCK 

THE NEXT BUFFER IN THE RING. 
FER IS EMPTY. 



ADVBFF: 
PDP.ADRCK 

HRRZ TAC 



DEVICE DATA BLOCK: 
JOB BUFFER HEADER: 

INTERN ADVBFF 

ADRCHK DEVIAD(DEVDAT) 

DEVIAD(DEVDAT) 

HRLZi taciouse; IOUSE 

lORB TAC,©DEVIAD(DEVDAT) 
HRRM TAC,DEVIAD(DEVDAT); 
SKIPL @DEVIAD(DEVDAT); 
AOS (POP); EXIT2 

POPJ POP, ; EXITl 



DEVDAT 

POP 

TAC 

DEVIAD 

IOUSE 



u 

S/U 
S/U 
S/U 
S/U 



=1 



DEVIAD:=NEXT BUFFER ADDRESS 

I0USE=1? 
. NEXT BUFFER IS EMPTY 
. NEXT BUFFER IS FULL 
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00620 


00630 


00640 


00650 


00660 


00670 


00680 


00690 


00700 . 


00710 


00720 , 


00730 


00740 


00750 


00760 



DEC 06 00 EX COM L PT PRE 01 ASCIA 

C. FRAZIER AND W. SEGAL 64-12-26 

CALLING SEQUENCE 

PUSHJ PDP, ASCIA 

EXIT ALWAYS RETURNS HERE 

ADDS THE ASCII INCREMENT (RIGHT JUSTIFIED) IN AC TaCI TO THE FIVE 
DIGIT ASCII NUMBER (LEFT JUSTIFIED) IN AC TaC AND LEAVES THE 
RESULT (LEFT JUSTIFIED) IN AC TAC. TACI IS RESTORED. 
MONITOR INTERFACE 



storage: 21 
SYMBOLS SET/USEDi 
ACCUMULATORS; 



PDP U 
TAC S/U 
TACI S/U 
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00770 






00780 




INTERN ASCIA 


00790 


JASCIA: 


PUSH PDP,TACi; 


00800 




AND TAC1,K2; 


00810 


f » 




00820 




LSH TAC,-l; 


00830 




lOR TAC,K4; 


00840 


' » 




00850 




TLZN TAC, 400000 


00860 




ADD TAC.Kl 


00870 




ADD TAC1,TAC 


00880 




AND TAC1,K3 


00890 




MOVE TAC,K4 


00900 




AND TACTACl 


00910 




ASH TAC, -3 


00920 . 




SUBM TACl.TAC 


00930 ; 




lOR TAC,K4 


00940 1 




LSH TAC.l 


00950 1 




TRO TAC.l 


00960 5 




POP PDP.TACl; 


00970 ; 




POPJ PDP, ; 


00980 • 


Ki: 


OCT 215064321506; 


00990 ; 


K2: 


OCT 036170743617; 


01000 1 


K3: 


OCT 176773757677; 


01010 i 


K4: 


OCT 140603014060; 



SAVE TACl = ASCII INCREMENT (RIGHT JUST 

CLEAR MOST SIGNIFICANT 3 BITS OF 

EACH CHARACTER 

TAC=FIVE DIGIT ASCII NO. ( RIGHT JUST. ) 

SET SECOND AND THIRD MOST SIGNIFICANT 

BITS OF EACH CHARACTER TO ONES. 



RESTORE TACl 

RETURN 

CHARACTER MASK: 1000110 

CHARACTER MASK; 0001111 

CHARACTER MASK: 0111111 

CHARACTER MASK: 0110000 



lOCSS - 10 COMMON SYSTEM SUBROUTINES 
8-15-65 



PAGE 8 









01020 










01030 










01040 




000020 


260140 


000041' 


01050 ASSIN: 


000021 


263140 


000000 


01060 




000022 


201100 


200000 


01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 


lASSIGN 
call: 


000023 


700200 


000000 


01170 ASSASG: 


000024 


135040 


000000 


01180 




000025 


316040 


000004 


01190 




000026 


254000 


000035' 


01200 




000027 


201040 


600000 


01210 




000030 


700600 


000000 


01220 




000031 


612046 


000004 


01230 




000032 


254000 


000036' 


01240 




000033 


436106 


000004 


01250 




000034 


137200 


000024' 


01260 




000035 


350003 


000000 


01270 ASSASi: 


000036 


700600 


000000 


01280 ASSAS2: 


000037 


700200 


000000 


01290 




000040 


263140 


000000 


01300 





INTERNAL ASSIN, ASSASG 

PUSHJ PDP.DEVSRC ;SEARCH 
POPJ POP, ;OEVICE 

MOVEI TACl, ASSPRG 5DEVICE 



FOR DEVICE 
NOT FOUND 
FOUND, FLAG 



AS ASSIGNED BY PROG 



DEVICE IF UNASSIGNED 
MOVE ITEM, JOB NUMBER 
MOVE DEVDAT, ADDR. OF DDE 
MOVEI TACl, EITHER ASSPRG OR ASSCON 
PUSHJ POP, ASSASG 
CANT ASSIGN RETURN 
ASSIGNED RETURN 



CONO APR,CLDS 

LDB TACPJOBN 

CAMN TAC. ITEM 

JRST ASSASI 

MOVEI TAC, ASSPRG+ASSCON 

CONO PI, SCNOFF JTURN 

TONE TAC, DEVMOD(DEVDAT) 

JRST ASSAS2 ;YES 

lORM TACl, DEVMOD(DEVDAT) 

DPB ITEM,PJ0BN ;AND 

AOS (POP) 

CONO PI, SCNON ;TURN SCANNER BACK 

CONO APR.CLEN JRENABLE CLOCK 

POPJ POP, 



{DISABLE CLOCK 

;GET JOB NUMBER IN DEV DATA BLOCK 
MS IT ALREADY ASSIGNED TO THIS JOB 
' YFS 

;N0, is IT ASSIGNED TO ANOTHE 
SCANNER OFF 

JARE EITHER ASSIGNED BITS SET 



JNO, 
STORE JOB 



SET ONE 
NUMBER 



ON 



OF THEM 
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000041 
000042 
000043 



000045 
000046 
000047 
000050 
000051 
000052 
000053 
000054 
000055 



000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000070 



260140 000044' 
254000 000056' 
254000 000000 



554300 
322040 
312046 
254000 
135100 
316100 
254000 
554306 
326300 
263140 



322040 
316040 
200040 
316040 
200040 
554300 
316046 
254000 
554306 
326300 
263140 



000000 

000000 

000005 

000053' 

000034' 

000004 

000043' 

000003 

000046' 

000000 



000045' 

000370' 

000000 

000371' 

000000 

000044' 

000000 

000052' 

000003 

000064' 

000000 



01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 



ROUTINE 
call: 



TO SEARCH FOR A DEVICE 
HRR ITEM, JOB NUMBER 
MOVE TACCSIXBIT .DEVICE NAME. 3 
PUSHJ POP, DEVSRC 
NOT FOUND 
FOUND 

INTERNAL DEVLG , OEVSRC. DEVPHY 
EXTERNAL SYSTAP . DEVOPR 



DEVSRC: 



PUSHJ PDP, DEVLG 
JRST DEVPHY 
JRST CPOPJl 



;SEARCH LOGICAL NAMES FIRST 

;NOT FOUND, SEARCH PHYSICAL NAMES 

;found 



;SEARCH LOGICAL NAMES 



{BEGINNING OF DDB CHAIN 

;0 CANNOT BE A LOGICAL NAME 

;COMAPRE WITH LOGICAL NAME 



DEVLG: HLRZ devdat,dfvlst 

JUMPE TACCPOPJ 
OEVLP0: CAME TACDEVLOG (DEVDAT ) 

JRST DEV0 ;N0 MATCH 

LDB TAC1,PJ0BN ;D0ES THE LOGICAL NAME BELONG TO THIS J 

CAMN TACl, ITEM 

JRST CPOPJl 
DEV0: HLRZ DEVDAT, DEVSER(DEVOaT) 

JUMPN DEVDAT, DEVLP0 

POPJ PDP, {FINISHED AND NOT FOUND 

{SEARCH PHYSICAL NAMES 



;YES 

;no. 



KEEP LOOKING 



DEVPHY: JUMPE TACCPOPJ 
CAMN TACCSIXBIT 
MOVE TACDEVOPR 
CAMN TACCSIXBIT 
MOVE TACSYSTAP 
HLRZ 

DEVLPi: CAMN 
JRST 
HLRZ 
JUMPN 



{ZERO CANNOT BE A LOGICAL NAME 
/OPR/] {IS IT "OPR"? 

{YES, CHANGE TO OPERATORS TTY 
/SYS/] {IS IT "SYS"? 

{YES, CHANGE TO TO SYSTEM TAPE NAME 
DEVDAT. DEVLST {SEARCH DEVICE DATA BLOCKS 
TAC,DEVNAM(DEVDAT) 
CPOPJl {FOUND 

DEVDAT, DEVSER(DEVDAT) 
DEVDAT, OEVLPl 



POPJ PDP, {NOT FOUND 
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01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 



DEC 06 00 EX COM L PT PRE 01 BUFCLC 
H. R. MORSE 64-12-26 
CALLING SEQUENCE 

PUSHJ POP rufclc 

EXIT ' RETURNS HERE IF MEMORY NOT EXCEEDED 

SETS UP AN N BUFFER RING FOLLOWING THE USERS PROGRAM, WHERE N 
IS IN THE ADDRESS FIELD OF AC UUO. 
THE BUFFER RING FORMAT IS AS FOLLOWS: 

LOCATION LH CONTENTS RH 
C(JOBFF) + 1 BUFFER C(JOBFF) +1 

+ 0(BUFFER SIZE+2) SIZE + KBUFFER SIZE+2) 

C(JOBFF) +1 BUFFER C(JOBFF) +1 

+1(BUFFER SIZE+2) SIZE + 2(BUFFER SlZE+2) 



BUFWRD 
MONITOR 



C(JOBFF) + 1 

+ (N-2)(BUFFER SIZE+2) 
C(JOBFF) + 1 

+ (N-1)(BUFFER 
THEN SET 
AND 

IS RESTORED. 
INTERFACE 
storage: 20 
ROUTINES called: 
symbols SET/USED 
ACCUMULATORS 



DEVICE DATA BLOCK 

JOB area: 

JOB BUFFER HEADER 



C(JOBFF) + 1 

+<N-1)(BUFFER SIZE+2) 
C(JOBFF) + 1 



BUFFER 
SIZE 

BUFFER 
SIZF+2) SIZE 

BUFPNT:=IOUSE,C(JOBFF) + 1 
J0BFF:sC(J0BFF) + 1 + N(BUFFER SIZE + 2) 



ADRCK 

BUFPNT 

BUFWRD 

DEVDAT 

PDP 

OEVCHR 

JOBFF 

lOUSE 



S/U 

S/U 

U 

S/U 

U 

S/U 

U 



PROG 
TAC 
TACl 
UUO 



U 
S/U 
S/U 
U 
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000071 261140 000013 

000072 135040 000372' 

000073 550507 000000 

000074 271500 000001 

000075 550540 000012 

000076 505500 000007 

000077 504540 000001 

000100 271040 000002 

000101 550100 000014 

000102 270540 000001 

000103 260140 000010' 

000104 550040 000012 

000105 202560 000012 

000106 540500 000013 

000107 367100 000102' 

000110 540547 000073' 

000111 271540 000001 

000112 260140 000103' 

000113 551052 777776 

000114 274500 000001 

000115 202560 000012 

000116 270500 000001 

000117 542507 000110' 

000120 540500 000013 

000121 505500 400000 

000122 262140 000013 

000123 263140 000000 



02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
PUSHJ 

02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 



INTERN BUFCLC 
BUFCLC: PUSH PDP.BUFWRDJ SAVE BUFWRD ON STACK 

LDB TAG. [POINT 12, DEVCHR(DEVOAT) , 353 ; TAC : =BUFFER SIZE 

HRR2 BUFPNT,J0BFF(PR0G);BUFPNT:=FIRST free LOCATION ♦ 

ADDI BUFPNT.l 

HRRZ BUFWRD, BUFPNT 

HRLI BUFPNT, prog 

HRL BUFWRD, Tac; 

ADDI TAC, 2; 

HRR2 TAC1,UU0; 

ADD BUFWRD, TAC; 

ADRCHK BUFPNT; 



POP 



8UFC1 

, ADRCK 
HRRZ 



BUFWRD:=BUFFER SIZE, FIRST FREE LOG * 1 
TAC:=BUFFER SIZE + 2 
TACi:=N=ADDRESS FIELD OF AC UUO 
BUFWRD:=C(BUFWR0) + C(TAG) 
CHECK BUFFER FOR MEMORY BOUND 



TAC, BUFPNT 

MOVEM BUFWRD, ^BUFPNT; BUFFER HEADER+1 : =C (BUFWRD ) 

HRR BUFPNT, BUFWRD; BUFPNT 18-35 : =G( BUFWRD 18-35) 

SOJG TACl,BUFCi; N:=N-1. IS N>0? 

HRR BUFWRD, JOBFF(PROG) 

ADDI BUFWRD. 1 

PUSHJ PDP,ADRCK ;CHECK LAST ADR. OF HEADER 

HRRZI TAC,-2(BUFPNT) 

SUB BUFPNT, TAC 

MOVEM BUFWRD, @BUFPNT;LINK LAST BUFFER TO FIRST BUFFER 

ADO BUFPNT, TAC 

HRRM BUFPNT, JOBFF( PROG); J0BFF:=C(J0BFF )+l+N( BUFFER 



HRR BUFPNT, BUFWRD 
HRLI BUFPNT, lOUSE 

POP pop,bufwrd; 
popj POP, ; 



BUFPNT:=IOUSE, ADDRESS OF FIRST 
IN RING, 



SIZE+2) 
BUFFER 



RESTORE 
RETURN 



BUFWRD FROM STACK. 
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000124 505040 000007 

000125 260140 000112' 

000126 550040 000001 

000127 554120 000001 

000130 620100 400000 

000131 270100 000001 

000132 260140 000125' 

000133 550040 000002 

000134 201060 000001 

000135 504040 000001 

000136 253040 000137' 

000137 402001 000000 

000140 350000 000001 

000141 251060 000002 

000142 263140 000000 



02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
PUSHJ 

02530 
02540 
02550 
02560 
02570 
PUSHJ 

02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 



DEC 06 00 EX COM L PT PRE 01 
H. R. MORSE 64-12-26 
CALLING SEQUENCE 

PUSHJ PDP.BUFCLR 
EXIT 
CLEARS THE WORD COUNT AND 
IS IN TAC 18-35. 
MONITOR INTERFACE 

storage: 13 
ROUTINES called: 
SYMBOLS set/used: 
ACCUMULATORS: 



INTERN BUFCLR 
BUFCLR: HRLI TAC, prog 

adrchk tac; 
pdp.adrck 

HRRZ TAC, tac 

HLRZ TACl.eTAC; 
TRZ TACl, 400000 
ADD TAC1,TAC; 
ADRCHK TaCI; 
PDP,ADRCK 

HRRZ TAC, TACl 

, 

MOVEI TAC,»TAC; 

, 

HRL TAC, TAC 
AOBJN TAC.+l 
CLEARM 0(TAC); 
AOS TAC 

BLT TACPTACi; 
POPJ POP, ; 



BUFCLR 



RETURNS HERE IF MEMORY NOT EXCEEDED 
lATA AREA OF THE BUFFER WHOSE ADDRESS 



ADRCK 



PDP U 
PROG U 



TAC S/U 
TACl S/U 



PROCEED IF CURRENT BUFFER ADDRESS 



< PROTECTION ADDRESS. 
TACl 18-35=SIZE 

TACi:=CURRENT BUFFER ADDRESS + SIZE 
PROCEED IF CURRENT BUFFER ADDRESS 



+ SIZE < PROTECTION ADDRESS. 
TAC:=CURRENT BUFFER ADDRESS+1, 
CURRENT BUFFER ADDRESS+1 



WORD COUNT:=0 

TAC:=CURRENT BUFFER ADDRESS*!, 
CURRENT BUFFER ADDRESS+2 
CLEAR BUFFER 
RETURN 
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02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 



CALLING SEQUENCE 

PUSHJ PDP,CKS12 

EXIT ALWAYS RETURNS HERE 

CALCULATES FOLDED 12 BIT CHECKSUMS OF THE DATA WORDS IN THE 
BUFFER WHOSE ADDRESS IS IN AC TACl. TWO ALGORITHMS ARE USED. 
ON RETURN, THE LEFT HALF OF AC TAC CONTAINS A CHECKSUM OBTAINED 
BY ACCUMULATING. IN ONES COMPLEMENT, THE DATA WORDS AND FOLDING IT. 



THE LEFT HALF OF AC DAT 

IN TWOS COMPLEMENT, THE 

CONTAINS A 1. 

MONITOR INTERFACE 

storage: 20 
ROUTINES called: 
SYMBOLS set/used: 

accumulators: 



CONTAINS A 
DATA WORDS 



FOLD 



CHECKSUM OBTAINED BY ACCUMULATING 
AND FOLDING IT. AC TACl 



DAT 
POP 
PROG 



S/U 

U 
U 



SUB 
TAC 
TACl 



S 

S/U 

S/U 
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02880 










02890 




000143 


270100 


000007 


02900 


CKS12: 


000144 


350000 


000002 


02910 




000145 


550042 


000000 


02920 




000146 


213000 


000001 


02930 




000147 


350000 


000002 


02940 




000150 


504100 


000001 


02950 




000151 


402000 


000001 


02960 




000152 


270042 


000000 


02970 


CKS12A 


000153 


253100 


000152' 


02980 




000154 


246040 


777750 


02990 


fold: 


000155 


242100 


777764 


03000 




000156 


270040 


000002 


03010 




000157 


246040 


777764 


03020 




000160 


242100 


777750 


03030 




000161 


270040 


000002 


03040 




000162 


622040 


770000 


03050 




000163 


350000 


000001 


03060 




000164 


517000 


000001 


03070 




000165 


201100 


000001 


03080 




000166 


263140 


000000 


03090 





INTERN CKS12 

ADO TAC1,PR0G; TAC1:=-W0RD count, ADDRESS OF FIRST DATA 

AOS TACl 

HRRZ TAC,0(TAC1) 

MOVNS TAC 

AOS TACl 

HRL TACl, TAC 

CLEARM TAC; INITIALIZE TWOS COMPLEMENT SUM 

ADD TAC,0(TAC1); TWOS COMPLEMENT ADD 

AOBJN taci,cksi2a; done? 

LSHC TAC,-30 

LSH TACl, -14 

ADD TAC, TACl 

LSHC TAC, -14 

LSH TACl, -30 

ADD TAC, TACl 

TRZE TAC, 770000 

AOS TAC 

HRLZS TAC 

MOVEI TACl.l ;TAC1:=1 

POPJ POP, 
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000167 135100 000373' 

000170 137100 000374' 

000171 402000 000002 

000172 137100 000001 

000173 263140 000000 



03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 



DEC 06 00 EX COM L PT PRE 01 CLRBYT 
H. R. MORSE 64-12-26 
CALLING SEQUENCE 

PUSHJ POP, CLRBYT 

EXIT ALWAYS RETURNS HERE 

CALLED WITH A BYTE POINTER IN AC TAC, IT CLEARS THE REST OF THE 
WORD POINTED TO BY THE BYTE POINTER. 
MONITOR INTERFACE 



storage: 7 
SYMBOLS set/used 
ACCUMULATORS 



POP 
TAC 
TACl 



U 
U 
S/U 



CLRBYT; 



INTERN CLRBYT 
LDB TACLCPOINT 
DPB TACI.CPOINT 
SET2M TACl 
DPB TACl, TAC; 
POPJ POP, ; 



6, TAC. 53; 
12,TAC,11]J 

CLEAR BITS 
RETURN 



TACi:=P 

TAC 0-5:=0,TAC 



6-12:=P 



36-P THROUGH 35 



000174 201040 000000 
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03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 



000175 
000176 
000177 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 



261140 000001 
515240 777760 
200305 000000 
200006 000002 
201600 000000 
137240 000000 
332000 000006 
260163 000000 
253240 000177' 
262140 000001 
263140 000000 
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;R0UTINE TO RELEASE ALL DEVICES ASSIGNED TO JOB 

INTERNAL lORELS 
EXTERNAL PUUOAC, RELEA3 



lORELS: 



MOVEI TAC,RELEA3 



;release all io devicescdont close) 



JROUTINE TO DO 10 FOR ALL DEVICES ASSIGNED TO JOB 
;CALL MOVEI TAC.ADR. OF 10 SUB. 
; PUSHJ POP, lOALL 



INTERNAL lOALL 

IOALL: 

lOALLi: 



JSAVE ADR. FO SUB. 



000210 
000211 



201040 000000 
254000 000175' 



PUSH PDP,TAC 

HRLZI DAT, -20 

MOVE DEVDAT, USRJDA(DAT) 

MOVE IOS,DEVIOS(OEVDAT) 

MOVEI UUO,0 

DPB DAT, PUUOAC 

SKIPE DEVDAT 

PUSHJ PDP,«>(POP) ;CALL THE SUB. 

AOBJN DAT, lOALLl 

POP PDP.TAC 

POPJ PDP, 

;KILL all DEVICES(RELEASE without WAITING FOR DEVICE INACTIVE) 

INTERNAL lOKILL 
EXTERNAL RELEA5 

IOKILL: MOVEI TAC,RELEA5 
JRST IOALL 



lOCSS - 10 COMMON SYSTEM SUBROUTINES 
5-17-65 PART 2 



PAGE 18 



000212 135340 000050' 

000213 200206 000011 

000214 550347 000000 

000215 263140 000000 



03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 



DEC 06 00 EX COM L PT PRE 01 lOSET 
H. R. MORSE 64-12-26 
CALLING SEQUENCE 

PUSHJ POP, lOSET 

EXIT ALWAYS RETURNS HERE 
THIS PROGRAM IS CALLED FROM AN INTERRUPT SERVICE ROUTINE. 



IT PUTS THE ADDRESS OF THE DATA AREA 
CONNECTED TO THE DEVICE SPECIFIED BY 
PUTS THE ITEM POINTER (C(OEVCTR)) IN 
MONITOR INTERFACE 

storage: 5 

SYMBOLS set/used: 

accumulators: 
device data block: 
system addresses: 

INTERN lOSET 



OF THE JOB (C( JBTADR18-35)) 
AC DEVDAT IN AC PROG AND 
AC ITEM. 



DEVDAT 

ITEM 

DEVCHR 

DEVCTR 

JBTAOR 



PDP 
PROG 



U 
S/U 



lOSET: LOB PROG,PJOBN 

MOVE ITEM,DEVCTR(DEVDAT); 
HRRZ PROG. JBTAOR(PROG); 
POPJ PDP, ; 



ITEM:=rTEM POINTERsCIDEVCTR) 
PR0G:=C(JBTA0R 18-35) 
RETURN 
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000216 
000217 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 



271240 
515040 
406060 
542120 
350020 
135100 
260140 
271240 
202220 
263140 



000001 

007777 

000005 

000005 

000005 

000375' 

000233' 

000001 

000005 

000000 



03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 

04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 



6-CSS-DEC-IOSETC-PL-PREl 
H.R. MORSE 17-11-64 

CALLING SEQUENCE 

PUSHJ POP, lOSETC 
EXIT 



ALWAYS RETURNS HERE 



SETS JBFPTR18-35:=C(TAC1 18-35) 

JBFCTR:=C(ITEM)»CWdRD LENGTH/BYTE SIZE] 
WHERE WORD LENGTH:=36 DECIMAL 

BYTE SIZE:=C(JBFPTR6-11) 

CX3:= INTEGER PART OF X 



MONITOR 



INTERFACE 
storage: 11 
ROUTINES called: 

symbols set/used: 
accumulators: 



INTERN lOSETC 



ITMCTl 

JBUF S/U 
ITEM S/U 
PDP U 



TAC S/U 
TACl S/U 



lOSETC: 



;JBFPTR12-18:=0 
; JBFPTR18-35:=C(TAC1 l8-35)+l 



ADDI JBUF.l 

HRLZI TAC, 7777 

ANDM TACPJBUF 

HRRM TAC1.PJ8UF 

AOS 9JBUF 

LDB TAC1,CP0INT 6,e»JBUF,ll] ;TACi:aBYTE SI2E 

PUSHJ PDP, ITMCTl JJBFCTR:=C(ITEM)«C36/BYTE SI2E3 

ADDI JBUF.l 

MOVEM ITEM.ejRUF 

popj PDP, ;exit 
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04230 
aA2Aia 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
04370 
04380 
04390 
04400 
04410 
04420 
04430 
04440 
04450 
04460 
04470 
04480 
04490 
04500 
04510 
04520 
04530 



DEC 06 00 EX COM L PT PRE 01 ITMSET, ITMCNT, ITMCTl 
H.R. MORSE 64-12-26 

CALLING SEQUENCE 

PUSHJ POP, ITMSET 

EXIT ALWAYS RETURNS HERE 

SETS AC ITEM:=(BUFFER SI ZE-1 )«CW0RD LENGTH/BYTE SIZED 
WHERE BUFFER SIZE:=BITS 1-17 OF THE BUFFER HEADER WORD POINTED TO 

BY C(DEVADR) 

WORD LENGTH:=36 DECIMAL 

BYTE SIZE:=INTEGER PART OF X. 

CALLING SEQUENCE 

PUSHJ PDP, ITMCNT 

EXIT ALWAYS RETURNS HERE 

SETS AC ITEM:=C(ITEM)»CW0RD LENGHT/BYTE SIZE] 

CALLING SEQUENCE 

PUSHJ PDP, ITMCTl 

EXIT ALWAYS RETURNS HERE 

SETS AC ITEM:=C( ITEM)»{:WORD LENGHT/C ( TACl ) 3 

MONITOR INTERFACE 

storage: 7 
SYMBOLS set/used: 

accumulators: 



DEVICE DATA BLOCK 



DEVDAT U TAC S/U 
ITEM S/U TACl S/U 
PDP U 
OEVADR U 
DEVPTR U 
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04540 








04550 


000230 


135200 


000376' 


04560 


000231 


275200 


000001 


04570 


000232 


135100 


000377' 


04580 


000233 


201040 


000044 


04590 


000234 


230040 


000002 


04600 


000235 


220200 


000001 


04610 


000236 


263140 


000000 


04620 



INTERN ITMSET, ITMCNT,ITMCT1 
ITMSET: LDB ITEM.CPOINT 17,PDEVADR(DEVDAT),173; ITEM:sBUFFER SI2E-1 

SU8I ITEM.l 
ITMCNT: LDB TACl.CPOINT 6, OEVPTR (DEVDAT ) , llD ; TACl : sBYTE SIZE 
ITMCTi: MOVEI TAG, 44 ; ITEM : sC ( ITEM)»CWORD LENGTH/C( TACl ) 3 

IDIV TACTACl 

IMUL ITEM, TAG 

POPJ POP, 



lOCSS - 10 COMMON SYSTEM SUBROUTINES PAGE 22 

5-17-65 PART 2 

04630 

04640 {ROUTINE TO SET DEVICE STATUS WORD FROM UUO 
04650 

04660 INTERNAL SETIOS 

04670 EXTERNAL ILLMOD 
04680 

000237 135100 000400' 04690 SETIOS: LDB TAC1,CP0INT 4, UUO, 353 ;GET DEVICE DATA MODE 

000240 201040 000001 04700 MOVEI TACl ;AND CHECK FOR LEGALITY 

000241 242042 000000 04710 LSH TAC.(TACl) 

000242 616046 000004 04720 TDNN TAC, DEVMOD (DEVDAT ) 

000243 254000 000000 04730 JRST ILLMOD ; ILLEGAL MODE 

000244 620600 010000 04740 TRE UUO.IOACT ;LET USER SET ALL BITS EXCEPT lOACT 

000245 542606 000002 04750 HRRM UUO, DEV lOS (DEVDAT ) 

000246 263140 000000 04760 POPJ POP, 
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04770 




04780 


.DEC 06 


04790 


.H. R. M 


04800 


.CALLING 


04810 




04820 




04830 


.CLEARS 


04840 


.ADDRESS 


04850 


.POINTER 


04860 


.CALLING 


04870 




04880 




04890 


isETS UP 


04900 


OF THE 


04910 


.MONITOR 


04920 




04930 




04940 




04950 




04960 




04970 




04980 




04990 





00 EX COM L PT PRE 01 NEWBUF, BPNSET 
ORSE 64-12-26 
SEQUENCE 
PUSHJ PDP, NEWBUF 

EXIT ALWAYS RETURNS HERE 

THE BUFFER CURRENTLY POINTED TO BY THE INPUT BUFFER 
(DEVDR) OF THE CURRENT DEVICE. SETS UP THE BYTE 
(DEVPTR), AND THE ITEM COUNT (DEVCTR) AND RETURNS. 
SEQUENCE 
PUSHJ PDP, BPNSET 

EXIT ALWAYS RETURNS HERE 

THE BYTE POINTER (DEVPTR) AND THE ITEM COUNT (DEVCTR) 
CURRENT DEVICE AND RETURNS. 
INTERFACE 



storage: 10 
ROUTINES called: 
SYMBOLS SET/USED 
ACCUMULATORS 

DEVICE DATA 



BUFCLR, ITMSET 



: OEVDAT 
ITEM 

block: 

DEVCTR 
DEVPTR 



U 
U 

DEVADR 
S 
S/U 



PDP 
TAC 



U 
S/U 



U 
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05000 










05010 










05020 




000247 


550046 


000007 


05030 


NEWBUF: 


000250 


260140 


000124' 


05040 




000251 


540046 


000007 


05050 


bpnset: 


000252 


515040 


007737 


05060 




000253 


404046 


000010 


05070 




000254 


540046 


000007 


05080 




000255 


350000 


000001 


05090 




000256 


202046 


000010 


05100 




000257 


260140 


000230' 


05110 




000260 


202206 


000011 


05120 




000261 


263140 


000000 


05130 





INTERN BPNSET, NEWBUF 

HRR2 TAC,DEVADR(DEVDAT); TAC:=INPUT BUFFER HEADER ADDRESS 

PUSHJ PDP.BUFCLR; clear INPUT BUFFER, 

HRR TAC,DEVADR(DEVDAT) 

HRLZI TAC,7737 

AND TAC.DEVPTR(DEVDAT); DEVPTR 0-5J=0, DEVPTR 12:=0 

HRR TAC.OEVADRCDEVDAT); DEVPTR 18-35 : =C (DEVADR 18-35) +1 

AOS TAC 

MOVEM TAC,DEVPTR(DEVDAT) 

PUSHJ POP, ITMSET; ITEM :=( BUFFER SIZE-1 )»C36/BYTE SIZE] 
MOVEM ITEM,DEVCTR(OEVDAT); DEVCTR:sTTEM COUNT 
POPJ POP, J RETURN 
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000262 
000263 
000264 
000265 
000266 
000267 
000270 
000271 
000272 
000273 
000274 

000275 
000276 
000277 
000300 



200106 
405100 
302100 
306100 
505040 
306100 
254000 
602100 
254000 
505040 
263140 



000002 

000017 

000013 

000014 

004407 

000010 

000275' 

000014 

000274' 

000707 

000000 



510046 000004 
621040 770077 
661040 000007 
263140 000000 



05140 
05150 
05160 
05170 
05180 
05190 
05200 
05210 
05220 
05230 
05240 
05250 
05260 
05270 
05280 
05290 
05300 
05310 
05320 
05330 
05340 
05350 
05360 
05370 
05380 
05390 
05400 
05410 
05420 
05430 
05440 
05450 
05460 
05470 
05480 
05490 
05500 
05510 
05520 
05530 



COM L PT PRE 02 SETBYT 
64-12-26 



DEC 06 00 EX 

H. R. MORSE 

CALLING SEQUENCE 

PUSHJ POP, SETBYT 
EXIT 

SETS TAC 0-5:=0 
TAC 6-li:=S 
TAC 12-13:=0 
TAC 14-17:=PR0G 

WHERE S=36 IF DATA MODE (10 
S=8 IF DATA MODE IS 
S=7 IF DATA MODE IS 



OR 
MONITOR INTERFACE 

storage: 12 
SYMBOLS set/used: 

accumulators: 

device data bl 
intern setbyt 
setbyt: move tacl , dev i os ( d 

ANDI TACl, 17 

CAIE TACl, IB 

CAIN TAC1,B5 

HRLI TAC.4400+PROG 

CAIN TACl, i; 

JRST SETBYl 

TRNE TACl, 14; 

JRST .+2; 

HRLI TAC,700+PROG; 

POPJ POP, J 



ALWAYS RETURNS HERE 



S 32-25) IS BINARY (B) 

IMAGE (I) 

ASCII PACKED (A) 
ASCII LINE (AL) 
ASCII SEQUENCED (AS) 
ASCII SEQUENCED LINE (ASL) 
ALTERNATE MODE BREAK (AM) 



PROG U 
POP U 
OCK: 

EVDAT); 



TAC 
TACl 



S 
S/U 



DEVIOS U 

FETCH DATA MODE, BITS 32-35 



;DATA mode IMAGE BINARY? 
IS DATA MODEsBINARY? 
SET BYTE SIZE TO 36. 
IS DATA M0DE=IMAGE? 

IS DATA M00E=ASCII PACKED, ASCII LINE, 
ASCII SEQUENCED, OR ASCII SEQUENCED LINE 
SET BYTE SIZE TO 7. 
RETURN 



SETBYl: HLLZ TAC,DEVMOD(DEVDAT) 
TLZ TAC. 770077 
TLO TAC, PROG 
POPJ POP, 
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05540 

05550 

05560 

05570 

05580 

05590 

05600 

05610 

05620 

05630 

05640 

05650 

05660 

05670 

05680 

05690 

05700 

05710 

05720 

05730 

05740 

05750 

05760 

05770 

05780 

05790 

05800 

05810 

05820 

05830 

05840 

05850 

05860 

05870 

05880 

05890 

05900 

05910 

05920 

05930 

05940 

05950 



DEC 06 00 EX COM L 
H.R. MORSE 
CALLING SEQUENCE 



PT PRE 01 
64-12-26 



STORE ITEM 



PDP,STODAT 



SEQUENCE 
TERMINATION 
IF THE BUFFER 
THE FIRST 



PUSHJ 

EXITl CHECKSUM ERROR 

EXIT2 BLOCK FULL OR BLOCK COMPLETE 

EXIT3 DATA STORED CORRECTLY 

CALLED FROM AN INpUT SERVICE ROUTINE WITH A DATA ITEM IN AC DAT. 
STORES THE DATA ITEM IN THE BUFFER, CHECKING TO SEE IF IT WERE 
THE FIRST ITEM ON THE BUFFER AND SETTING UP THE POINTER AND 
WORD COUNT APPROPRIATELY CHECKING THE MODE TO SEE IF ANY SPECIAL 
PROCESSING NEED BE DONE. FOR EXAMPLE, GENERATION OF 
NUMBERS PRECEDING EACH LINE IN SEQUENCE MODE, OR THE 
OF A BUFFER ON CERTAIN CHARACTERS IN OTHER MODES, OR 
IS FULL. THERE ARE THREE RETURNS FROM THIS ROUTINE? 
RETURN OCCURS ON AN ERROR CONDITION, THE SECOND RETURN OCCURS 
ON A BLOCK FULL CONDITION OR BLOCK COMPLETE CONDITION, THE THIRD 
RETURN OCCURS ON THE DATA STORED CORRECTLY CONDITION. THIS 
ROUTINE ALSO DOES SOME CHECKING ON INPUT OF BINARY RECORD, 
PAPER TAPE OR CARDS. 
CALLING SEQUENCE 

PUSHJ PDP,STOSQD 

XXXX ALWAYS SKIPS 

EXIT ALWAYS RETURNS HERE 

STORES THE WORD COUNT : rC ( DEVPTR 18-35) -C(DEVIAD 18-35) - 1 
IN THE BUFFER. 
MONITOR INTERFACE 

storage: 69 

ROUTINES called: ASCIA, CKS12, ITMSET. 

SYMBOLS set/used: 
ACCUMULATORS: 



NEWBUF 



DEVICE DATA BLOCK 
10 STATUS word: A 



JOB BUFFER AREA 



DAT 

DEVDAT 

lOS 

ITEM 

OEVCTR 

DEVIAD 



U 

U 

S/U 

S/U 

U 

U 



POP 
TAC 



U 
S/U 



TACl S/U 



DEVPTR 
OEVSEO 
I 



S/ 
S/ 

U 



AS 
ASL 
B 
WORD 



U 
U 
U 
COUNT 



lOBKTL 
lODTER 
lOFST 



S 
S 
S/ 
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05960 










05970 










05980 




000301 


603000 


000004 


05990 
06000 


STODAT 
» 


000302 


260140 


000247' 


06010 
06020 


» 


000303 


135100 


000000 


06030 




000304 


306100 


000014 


06040 




000305 


254000 


000344' 


06050 




000306 


621000 


000004 


06060 




000307 


136246 


000010 


06070 


STOi: 


000310 


302100 


000000 


06080 


^ 


000311 


306100 


000010 


06090 




000312 


254000 


000324' 


06100 




000313 


306100 


000014 


06110 




000314 


254000 


000324' 


06120 




000315 


307240 


000214 


06130 




000316 


305240 


000212 


06140 




000317 


254000 


000321' 


06150 




000320 


254000 


000336' 


06160 




000321 


365200 


000000 


06170 




000322 


660000 


040000 


06180 


STOEi: 


000323 


254000 


000056' 


06190 




000324 


367200 


000321' 


06200 


STOAIR 


000325 


306100 


000000 


06210 




000326 


254000 


000336' 


06220 




000327 


306100 


000014 


06230 




"000330 


254000 


000354' 


06240 




000331 


260140 


000230' 


06250 
06260 


STOi: 


000332 


274206 


000011 


06270 




000333 


550106 


000007 


06280 


(^ 


000334 


271200 


000001 


06290 


A 


000335 


344100 


000342' 


06300 





INTERN STODAT. STOSQD 
TLNE I0S,I0FST; 

pusHj pdp.newbuf; 



WILL THE NEXT ITEM BE THE FIRST ITEM 

OF A BUFFER? 
SET UP A NEW BUFFER. ITEM: «( BUFFER 

SIZE - 1)»C36/BYTE SIZED 
TACi:=DATA MODE 
MODEsBINARY? 



LDB taci.piomod; 
CAIN taci.b; 

JRST STOBIN 

TLZ lOS.IOFST 

DPBI DAT,DEVPTR(DEVDAT); STORE DATA IN BUFFER. 



CAIE TACl.AJ 
CAIN TACl, I 

JRST STOAIB 

CAIN TACI.B ^' 
JRST STOAIB' 
CAIG DAT, 214 
CAIGE DAT, 212 
JRST .+2 ;no 
JRST STOSQD 
SOJGE ITEM,CP0PJ2; 
TRO IOS,IOBKTL 
JRST CPOPJ 
SOJG ITEM,CP0PJ2; 
CAIN TACl. a; 
JRST STOSQ^lS^ 

CAIN taci.b; 

JRST STOBND 

PUSHJ POP, itmset; 



MODE=ASCII, IMAGE, OR BINARY? 



,<S ^^^^ 



-v^ 



;line feed. form feed, or vertical TAi? 



* YES 

ITEM:=C(ITEM)-1. is C(ITEM)>ORs0? 

; iobktl:=i 

ITEM:=C(ITEM)-1. IS C(ITEM)>0? 
MODEsASCII? 

MODE=BINARY? 



I TEM:s (BUFFER SIZE-1)»C36/BYTE SIZED 
- C(DEVCTR) 
^ SUB ITEM.DEVCTR(DEVDAT) 
^^^^ +«W* TAC1,DEVIAD(DEVDAT) JSTORE ITEM COUNT INSTEAD OF 
ADDI ITEM.l ;IN FIRST WORD OF BUFFER 

AOJA TACl.STOSQE 



5^ c?se3> 
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06310 




000336 


200106 


000007 


06320 


STOSQ^: 


000337 


350000 


000002 


06330 




000340 


550206 


000010 


06340 
06350 


> 


000341 


274200 


000002 


06360 




000342 


542220 


000002 


06370 


STOSQE: 


000343 


254000 


000065' 


06380 




000344 


627000 


000004 


06390 


STOBIN: 


000345 


25^000 


000307' 


06400 




000346 


550040 


000005 


06410 




000347 


313040 


000004 


06420 




000350 


254000 


000322' 


06430 




000351 


200200 


000001 


06440 




000352 


202266 


000010 


06450 




000353 


254000 


000324' 


06460 




000354 


550106 


000007 


06470 


STOBNO: 


000355 


260140 


000143' 


06480 




000356 


270106 


000007 


06490 




000357 


510120 


000002 


06500 




000360 


316040 


000002 


06510 




000361 


254000 


000343' 


06520 




000362 


660000 


100000 


06530 




000363 


254000 


000323' 


06540 
06550 





MOVE TAC1,DEVIAB«EVDAT^); 

AOS TACl 

HRRZ ITEM,DEVPTR(DEVDAT); 



TACi:=ADDRESS OF WORD COUNT 

ITEM:=C(DEVPTR 18-35) - 
C(DEVIAD 18-35) -1 



SUB ITEM, TACl 



HRRM 
JRST 
TLZN 
JRST 
HRRZ 
CAMLE 



ITEM.^TACI 
CPOPJi; 

los, iofst; 
STOi; 

TAG, DAT 

TAG. item; 



JWORO COUNT TO FIRST WORD IN BUFFER 
EXIT2. BLOCK COMPLETE 
WILL THE NEXT ITEM BE THE FIRST ITEM 
OF A BUFFER? IOFST:=0 



IS 



(BUFFER SIZE-D* 



JRST STOEi; 

MOVE ITEM.TAC; 

MOVEM DAT,eDEVPTR(DEVDAT); 

JRST CP0PJ2; EXIT3. 



WORD COUNT <0R= 
C36/BYTE SIZE]? 
ITEM:=W0RD COUNT 

STORE WORD COUNT IN BUFFER 
DATA STORED. CORRECTLY. 



HRRZ TAC1,DEVIAD(DEVDAT) 

PUSHJ PDP,CKS12; COMPUTE CHECKSUM 

ADD TACl, DEVIAD(DEVDAT) 

HLLZ TACl,e»TACi; DATA CHECKSUM = COMPUTED CHECKSUM? 

CAMN TACTACl 

JRST CPOPJi; EXIT2. BLOCK COMPLETE 

TRO ios.iodter; I0DTER:=1 

JRST CPOPJ; EXITl. CHECKSUM ERROR 
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06560 








06570 








06580 








06590 








06600 








06610 








06620 








06630 








06640 








06650 








06660 








06670 








06680 








06690 


000364 


200043 


777777 


06700 


000365 


505040 


000007 


06710 


000366 


200060 


000001 


06720 
06730 


000367 


263140 


000000 


06740 
06750 


000370 


576062 


000000 


06760 


000371 


637163 


000000 




000372 


001406 


000001 




000373 


360600 


000001 




000374 


301400 


000001 




000375 


300620 


000005 




000376 


222126 


000007 




000377 


300606 


000010 




000400 


000400 


000014 





DEC 06 00 EX COM L PT PRE 01 UINTQ 
H.R. MORSE 64-12-26 
CALLING SEQUENCE 

PUSHJ POP, UINTQ 

EXIT ALWAYS RETURNS 

TAC:=CONTENTS OF WORD FOLLOWING UUO 
FROM USERS AREA. 
MONITOR INTERFACE 

storage: 4 

SYMBOLS set/used: 

accumulators: 



here 

CALL 



UINTQ: 



POP U 
PROG U 



TAG S/U 



INTERN UINTQ 
MOVE TAC, -KPDP) 
HRLI TAC, PROG 
MOVE TAC, «»TaC 

POPJ POP, 



;TAC:=ADDRESS following UUO c 

;relocate address 
;tac!=contents of word follow 
juuo call from users area 
;return 



END, 



THERE ARE NO ERRORS 
program break is 000401 
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A 

ACl 

AC2 

AC3 

ADRCK 

ADVBFE 

ADV8FE 

AL 

ASSASl 

ASSAS2 

ASSASG 

ASSCON 

ASSIN 

ASSPRG 

B 

BPNSET 

BUFCl 

8UFCLC 

BUFCLR 

BUFPNT 

BUFWRO 

CKS12 

CKS12A 

CLDS 

CLEN 

CLOSB 

CLOSEl 

CLRBYT 

CLSIN 

CLSOUT 

CPOPJ 

CPOPJl 

CP0PJ2 

D 

OAT 

OCL 

OCW 

ODI 

000 

OOTMEM 

OOTSYM 

OEN 

OEV0 

OEVADR 

OEVBUF 

OEVCHR 

OEVCTR 

OEVDAT 

DEVIAD 

OEVIOS 

OEVLG 

OEVLOG 

OEVLP0 

OEVLPl 

OEVLST 



000000 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


000132' 


EXT 


000000' 


INT 


000010' 


INT 


000001 


INT 


000035' 




000036' 




000023' 


INT 


400000 


INT 


000020' 


INT 


200000 


INT 


000014 


INT 


000251' 


INT 


000102' 




000071' 


INT 


000124' 


INT 


000012 


INT 


000013 


INT 


000143' 


INT 


000152' 




000023' 


EXT 


000037' 


EXT 


002000 


INT 


000000 


EXT 


000167' 


INT 


000002 


INT 


000001 


INT 


000363' 


EXT 


000361' 


EXT 


000353' 


EXT 


000017 


INT 


000005 


INT 


000001 


INT 


020000 


INT 


000007 


INT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000053' 




000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000044' 


INT 


000005 


INT 


000046' 




000064' 




000063' 


EXT 
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OEVMOD 

DEVNAM 

DEVOAD 

OEVOPR 

DEVPHY 

DEVPTR 

DEVSER 

DEVSRC 

DGF 

DIN 

OLK 

OOU 

OR 

ORL 

OSI 

DSO 

OTW 

DVAVAL 

DVCDR 

DVDIR 

OVDIRI 

nviN 

OVLPT 

OVMTA 

DVOUT 

DVTTY 

ENTRB 

ERROR 

FOLD 

I 

IB 

IBUFB 

ILLMOD 

INITB 

INPB 

10 

lOACT 

lOALL 

lOALLl 

lOBEG 

lOBKTL 

lOCON 

lOOEND 

lOnERR 

lODISC 

lODONE 

lODTER 

lOFNO 

lOFST 

lOIMPM 

lOKILL 

lONRCK 

lORDEL 

lORELS 

lORET 



000004 


INT 


000000 


INT 


000010 


INT 


000060' 


EXT 


000056' 


INT 


000010 


INT 


000003 


INT 


000041' 


INT 


000012 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


040000 


INT 


000040 


INT 


100000 


INT 


000004 


INT 


400000 


INT 


000002 


INT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 


020000 


INT 


000000 


EXT 


000154' 




000010 


INT 


000013 


INT 


200000 


INT 


000243' 


EXT 


400000 


INT 


010000 


INT 


000020 


INT 


010000 


INT 


000175' 


INT 


000177' 




000002 


INT 


040000 


INT 


000040 


INT 


020000 


INT 


200000 


INT 


400000 


INT 


400000 


INT 


100000 


INT 


000040 


INT 


000004 


INT 


400000 


INT 


000210' 


INT 


000100 


INT 


000100 


INT 


000174' 


INT 


000020 


INT 
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lOS 

lOSET 

lOSETC 

lOSTRT 

lOUSE 

lOW 

lOWC 

lOWS 

ITEM 

ITMCNT 

ITMCTI 

ITMSET 

JBEADR 

JBFCTR 

JBFPTR 

JBTADR 

JBUE 

JDAT 

JERR 

JIOW 

JNA 

JOB 

JORFF 

L00K8 

MTW 

NEWBUF 

OBUFB 

0UTP6 

POP 

PICHN 

PIOMOD 

PJOBN 

PROG 

PUUOAC 

RELEAl 

RELEA3 

RELEA5 

RUN 

RUNABL 

SCNOFF 

SCNON 

SETBYl 

SETBYT 

SETIOS 

STOl 

STOAIB 

STOBIN 

STOBND 

STODAT 

STOEl 

STOI 

STOSQD 

STOSQE 

SYSTAP 

TAG 



000000 


INT 


000212' 


INT 


000216' 


INT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000232' 


INT 


000233' 


INT 


000230' 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000214' 


EXT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


000000 


EXT 


000117' 


EXT 


040000 


INT 


010000 


INT 


000247' 


INT 


100000 


INT 


004000 


INT 


000003 


INT 


000100 


INT 


000303' 


EXT 


000212' 


EXT 


000007 


INT 


000202' 


EXT 


000000 


EXT 


000174' 


EXT 


000210' 


EXT 


200000 


INT 


204000 


INT 


000030' 


EXT 


000036' 


EXT 


000275' 




000262' 


INT 


000237' 


INT 


000307' 




000324' 




000344' 




000354' 




000301' 


INT 


000322' 




000331' 




000336' 


INT 


000342' 




000062' 


FXT 


000001 


INT 
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TACl 

TEM 

TTYATC 

TTYUSE 

UINTQ 

USRJOA 

USRMOO 

UUO 

WAITl 



P!00002 

000010 

020000 

010000 

000364' 

000177' 

010000 

000014 

000000 



INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
EXT 



END OE ASSEMBLY 



